RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR ° 
RRR 

RRR 

RRR 

RRR 

RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR ~=RRR 
RRR = RRR 
RRR = RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR 

RRR 

RRR 


Bie LR tal 


Ager A NR: Rae ILENE ak : es 


$i 

Sy! 

NT! 

NT! 

NT! 

NT! 

NT! 

NT! 

MMM MMP SSSSSSSSSSSS NT! 
MMM MMM SSSSSSSSSSSS NT! 
MMM MMM SSSSSSSSSSSS NT! 
HM MPA ME MM SSS NT! 
MMMM MM SSS NT! 
MMMMMM  MMMMMM SSS NT! 
MMM MMM) «6OMMM «SSS NT! 
MMM MMM MMM SSS NT! 
MMM MMM MMM «SSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSS NT! 
MMM MMM $$$ NT! 
HMM MMM SSS NT! 
MMM MMM SSS NT! 
MMB MMM $$$ NT! 
MMM MMM $ss NT! 
MMM MMM SSSSSSSSSSSS NT! 
MMM MMM SSSSSSSSSSSS | NTS 
MMM MMM SSSSSSSSSSSS NTS 
NT! 

NT! 

NT! 

NT! 

| NT! 

| NT! 

| NT! 

NT! 


=e) 


i 
rays) wu 
oo Ooo 
oo Oo 

Oo CoO 

part ar) Oo 

oOo oo 

CoO oo 
CoO Oo 

COOOOLOCLLLOY 

CSOOGOGVOCOCVOOLCYG 

222222222 22222 

2222222222 2222 

2zZz 
22 | 
22 
Y -4 
Z2z2z 
22a 

22222222222 222 
| 
| wa 

CY a Ye 

= = (oa See 

ak = 

we = 

= wee 

a uh 

a kk we 


LLLLLLLLL 
LLLLLLLLL 


a hh hh 
Se ee eS eS eS ed Se OS a a 


Soooooooooo 
SoooQooooeoo 


oOooooooooo 
pole lo lo lelololoeleolq) 


**F ILE®*1D**RMOF ILFNC 
RRRRRRRR 
RRRRRRRR 
RR 
RR 
RR 
RR 
RRRRRRRR 
RRRRRRRR 
LLLLLLLLLL 
LLLLLLLLLL 


B 11 | 
RMOF ILFNC FILE FUNCTIONS MODULE 16-SEP-1984 00:21:33 VAX/VMS Macro V04-00 Page 0 
Table of contents 


(2) 93 DECLARATIONS 
(5) 193 RMSFCPFNC = ROUTINE TO ISSUE A_ FILE FUNCTION Q10 
(7) 2 RMSMAPERR = ROUTINE TO MAP SYSTEM ERROR CODES TO RMS CODES 


11 
RMOF ILFNC FILE FUNCTIONS MODULE 16=SEP=1984 00:21:33 VAX/VMS Macro v04-00 P & 
FOSLObO me Pat Ste le tS he 


SBEGIN RMOFILFNC,000,RMSRMSO,<FILE FUNCTIONS MODULE> 


MAAR ARAARABARAAAALASLALAAAASLALE LASALLE SESSA SEER ERR SEER EERE EEE ERE REESE SES ERE EES Oy 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

ALL RIGHTS RESERVED. 

THIS SHED UNDER A LICENSE AND MAY BE USED AND COPIED 

ONLY TH OF SUCH LICENSE AND WITH THE 

NCL COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
I BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
E E TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


; 
USION 0 

ES 

OTHER PERSON. NO TI 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORATION NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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++ 
Facility: rms32 


Abstract: 
this module includes various routines to 
perform files-11 primitive functions. 
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: Environment: 

3 star processor running starlet exec. 

: Author: L F Laverdure, creation date: 11l-march-77 

: Modified By: 
00 ; V03-042 RASO0279 Ron Schaefer 26-Mar-1984 
00 ; Add additional system errors to RMSMAPERR: 
8 ; SS$_IVDEVNAM --> RMS$_DEV 
bp : SS$_DEVALLOC ==> RMS$_DNR 
00 ; V03-041 DGB0019 Donald G. Blair 05-Mar-1984 
00 3 Completely reorganize RMSFILFNC and its alternate 
00 ; entry pointe as part of the restructuring necessary 
bo ; to implement access mode protected files. 
00 ; v03-040 KBT0207 Keith B. Thompson 23-Aug-1982 
BS : Reorganize psects 
$0 : v03-039 KPLO013 Peter Lieberwirth 4-Feb-1982 
3 : Map DEADLOCK and EXENQLM system error messages. 
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v03-038 Grove Peter Lieberwirth 19-Aug-1981 
Special $2°2 20 gone. system error messages from the lock 
manager Also, reorder somewhat the entries 
in the table, pote more likely errors in front. 


v03-037 peserer C Sae 18-Jun-1981 
d RMS error codes po | RY 


V03-036 KPLOO11 Peter Lieberwirth 
Add $ENQ codes to maptable for RMSMAPERR. 


v03-035 CDS0001 C Saether 29-Dec-1980 15:10 
Remove code for ACT error (not referenced). 


v034 REFORMAT Ken Henderson 29-JUL-1980 16:18 
code was reformatted 


v033 Tim Halvorsen 18-SEP-1979 
extracted rm$setdid into rmOsetdid module. 


v032 RANOOO3 L F Laverdure 10-OCT-1978 13:40 
file sharing nods modifications 


8=-Jun-1981 


Revision History: 


L F Laverdure, 
L F Laverdure, 


L F Laverdure, 10-JUL-1978 11:51 
mod's for mbf support for seq files 


10-OCT-1978 13:40 ; file sharing modifications 
11-AUG-1978 17:14 ; add rm$fcpfnc_alt5 entry point 
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-SBTTL RMSFCPFNC = ROUTINE TO ISSUE A FILE FUNCTION QI10 


vOe~000" RABE 


RMSFCPFNC_P4 
RMSF CPFNC-NOF 18 


this routine completes the qio — list, 
issues the qio, and awaits completion of 
the function. 


Calling sequence: 


bsbw rm$fcpfnc 

bsbw rm$fcpextend 
bsbw rm$fcpfnc_p4 
bsbw rm$fcpfnc_nofib 


Input Parameters: 


rii impure area address 

r10 fwa address (input for rm$fcpfnc) 

r9 ifab/irab address 

r8 fab/rab address 

r0 aio function code (not an input for rm$fcpextend) 


Implicit Inputs: 
ifb$l_chnl - i/o channel 
fwa$q_fib - fib descriptor (and buffer) 
- (note: input for entry at rm$fcpfnc only) 
see also documentation preceding each entry point 
outputs: 


r status code 
ri-r4,ap destroyed 


Implicit Outputs: 
ifb$l_ios - i/o status block filled in 


li 
( or Trb$l_ios if r9 = irab ) 
fwa$q_fib - filled in with file function result 
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Completion Codes: 
qio status code. 
; Side Effects: 
on return rms will be running at ast level. 
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; r0 contains qio function code 
3 pe-pb prcees on stack. 
3 pl will point to fib descriptor in fwa 
RMSFCPFNC:: 
STSTPT FCPFNC 
POP ; R4 = return pc 
PUSHAQ FWA$Q_FIB(R10) ; pl = fib descriptor addr 
; r0 contains qio function code 
3 pl thru p<Nn> are on stack 
; finish building qio argument List on stack 
FCPCOM: MOVL (SP) ,R1 3 rl = fib descriptor address 
OVL 4(R1S,R1 ; rl = fib address 
F CPCOM_NOF IB: 
ASSUME QIO$_ASTPRM EQ <QI0$_P1 = 4> 
PUSHL R9 ; astprm = ifab addr 
ASSUME QIO$_ASTADR EQ <QIO$_ASTPRM -4> 
PUSHAL W*RMSSTALLAST ; ast address 
ASSUME QI0$ I0SB EQ <QIO$_ASTADR -4> 
PUSHAL IFBS$C_IOS(R9) ; i/o status block addr 
ASSUME QIC$_FUNC EQ <QI0$_I0SB -4> 
USHL RO 3 q o function from caller 
ASSUME QI10$_ CHAN EQ <QIO$_FUNC = 4> 
VL R9,RO 3 set ifab/irab addr 
ASSUME IFB$B_BID EQ IRB$B_BID 
ASSUME IFBS$C_BID&1 EQ 1 
ASSUME IRB$C_BID&1 EQ 0 
BLBS IFB$B_BID(R9) ,2$ : branch if ifab 
MOVL IRB$L_IFAB_LNK(R9),RO ; get ifab addr 
2$ MOVZWL IFBSWICHNLTRO),-(SP) |; 1/0 channel 
TSTL R1 : is there a fib? 
BEQL 5$ : branch if not 
MOVB IFBSB_AGENT_MODE(RO),- ; move agent mode into fib 
FIBSB_AGENT_MODE(R1) 
ASSUME QI0$ EFN EQ°<QI0$_CHAN -4> 
5$: SBW RMSSETEFN z set event flag to use 
ASSUME a198 NARGS EQ 12 
CALLS #12,a#SYS$QI0 ; do the qio 
LBC RO, 10$ ; branch on error 
BSBW RMSSTALL ; await completion 
10$: JMP (R4) ; return to caller 
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O ISSUE A FILE FUNC 


H 11 


STSTPT gees 
POPL 


S*#108_ MODIFY,RO 
PUSH_P4 


r0 contains qio function code 
urn pc 


8: pé 
(sp)+C: Rib descriptor (quadword) 


> (sp) 
RMSFCPEXTEND:: 

2 8EDO 

50 9A MOVZBL 
re 7C CLRQ 

0 11 BRB 
: (sp) : ret 
3 (sp)+4: pd 
: (sp)+ 


RMSFCPFNC_P4:: 
POPL 
PUSH_P4:CLRQ 
CLRL 


PUSHAB 
BRB 


0 contains qio function code 
: pl thru p<N> already on stack 


CLRL 
BRB 


RMSF CPFNC_NOFIB:: 
POPL R4 


R1 
FCPCOM_NOF IB 


“SEP=19 
~SEP=1984 
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; common entry point to perform acp file extend. 
: return pc 
; (sp)+4: fib descriptor (quadword) 


count file extends 
r4 = return pc 
“% "3 function code 


+ to on rest of qio arguments 


continue stack at p4 
7 = “we pc 

p2 = 

pl = fib descriptor address 
push rest of qio arguments 


r4 = return pc 
clear fib address : 
3; push rest of qio arguments 
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-SBTTL RMSMAPERR = ROUTINE TO MAP SYSTEM ERROR CODES TO RMS CODES 


+ 
RMSMAPERR 
This routine maps the error code received in r0 to the equivalent ras error 
code. If the code is not found the default code in rl is used. Some system 
errors are mapped to themselves since we don't need special RMS errors for 
em. 
Calling sequence: 
brw rm$maperr 
inputs: 


em error code 


OOOCCCCOCOCOOOCOCOOCOOOCOOOCOoOoCooO (UU 
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i 
2? 
2 
58 
59 
60 
2] 
4 
64 
65 
66 
67 
68 
69 r0 syst 
5f0 ri default rms error code 
si r8 fab/rab address 
a8 outputs: 
0 74 
0 $f? fab$l_stv - set from r0 ; 
0 76 r0 set from mapped error code or ri if none 
06A 277 
006A 278 ; Side Effects: 
O06A +44 : 
006A 80 exits with an rsb. 
006A 281 ;:-- 
006A $e 
006A 8 -MACRO MAP SYSCOD, RMSCOD 
006A 284 » WORD S$S$_'SYSCOD 
006A 285 RMSERR_WORD RMSCOD 
006A 286 .ENDM 
006A 287 
006A $68 MAPTABLE: 
006A 89 MAP NOSUCHFILE, FNF 
006E 290 MAP NOPRIV, PRV 
0072 291 MAP NOSUCHDEV, DEV 
0076 $36 MAP IVDEVNA DEV 
007A 29 MAP ENDOFFILE, EOF 
007E 94 MAP DEVALLOC, DNR 
st 4 95 MAP DEVNOTMOUNT, DNR 
38 MAP DEVOFFLINE, DNR 
008A 29 MAP DUPFILENAME, FEX 
O08E 98 MAP FILNOTEXP, EXP 
09 99 MAP FCPREADERR, ATR 
0096 00 MAP FCPWRITERR, ATW 
OO9A 01 MAP ACCONFLICT, FLK 
O09 08 MAP NOMOREFILES, NMF 
0OA 0 MAP DEVICEFULL, FUL 
0A6 04 MAP WRITLCK, WLK 
OAA 05 MAP NOTQUEUED, RLK 
OAE 6 MAP EXENQLM, EXENQLM 
0B 0 MAP DEADLOCK, DEADLOCK 
0B6 08 MAP INSFMEM, DME 
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«WORD 0,0 3; end of table | 
| 


don't map if not 

address of mapping table 
match with system code? 
branch if yes 

zero entry? 

branch if not 


10$: 
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; reached end of table without finding a match 
; use the default code in rl 


15$: MOVL R1,R0 
RSB 


: found matching code in table - use corresponding rms code 


20$: MOVZWL (RO) ,RO 
RSB 


NOUS WN (OO ONAUE WN" OVOONOUS WN —-O” 
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- END 


E 
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E 
F 
F 
F 
I 
I 
] 
I 
I 
I 
I 
I 
I 
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I 
I 
I 
I 
I 
RM 


RMSMAPERR: : 
MOVL Fnest. STV(R8) ; save system code in stv 
BITL OF FFO000,RO ; system error code? 
TABLE ,RO 
)+,F ABSL 
) 
| 
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ere eececes woman ome + 


! Psect synopsis ! 


tem en eee ewe men eces + 


PSECT name Allocation PSECT No. Attributes 


- ABS . 00000000 < Q.} 0 ( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
RMSRMSO Q00000E1 225. : Stet PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
SABSS 00000000 <¢ 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 


Gueeceeeecoeeneosooeseccs 


emcee mene neem eee ee mee mea $ 


Phase Page faults CPU Time Elapsed Time 


Initialization 31 00:00:00.11 00:00:00.95 
Command processing 115 00:00:00.77 00:00:05.54 
Pass 1 458 00:00:17.74 00:00:39.46 
symbol table sort 0 888d: 05" o8 00:00:04.97 

s 2 69 00:00:0 2 00:00:05.22 
we, table output 11 00:00:00.1 00:00:00.40 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 688 00:00:24.70 00:00:56.56 


The working set Limit was 1500 pages. 
99318 bytes (194 pages) of virtual memory were used to buffer the intermediate code. 
There were 110 pages of symbol table space allocated to hold 2065 non-local and 6 local symbols. 
337 source Lines were read in Pass 1, producing 13 object records in Pass 2. 
pages of virtual memory were used to define 22 macros. 


ween seme on ee treo e tee mem aem $ 


Macro Library name Macros defined 


“$255$DUA28: CRMS .OBJJRMS.MLB; 1 8 
“$255$DUA28: CSYS.OBJJLIB.MLB; 1 0 
“$255$DUA28: Eevei IBISTARLET. MLB; 2 9 
TOTALS (all Libraries) 17 
2170 GETS were required to define 17 macros. 

There were no errors, warnings or information messages. 


MACRO/LIS=L1IS$:RMOF ILFNC/OBJ=OBJ$:RMOFILFNC MSRC$:RMOF ILFNC/UPDATE=(ENH$:RMOF ILFNC) *EXECML$/LIB+LIB$:RMS/LIB 
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